package com.ssdp.service.impl;

import cn.hutool.core.bean.BeanUtil;
import cn.hutool.core.util.BooleanUtil;
import cn.hutool.core.util.StrUtil;
import cn.hutool.json.JSONObject;
import cn.hutool.json.JSONUtil;
import com.baomidou.mybatisplus.extension.plugins.pagination.Page;
import com.fasterxml.jackson.core.JsonProcessingException;
import com.fasterxml.jackson.databind.ObjectMapper;
import com.ssdp.constant.PageConstant;
import com.ssdp.dto.Result;
import com.ssdp.entity.Shop;
import com.ssdp.mapper.ShopMapper;
import com.ssdp.service.IShopService;
import com.baomidou.mybatisplus.extension.service.impl.ServiceImpl;
import com.ssdp.utils.CacheClient;
import com.ssdp.utils.RedisData;
import lombok.RequiredArgsConstructor;
import lombok.extern.slf4j.Slf4j;
import org.springframework.data.geo.Distance;
import org.springframework.data.geo.GeoResult;
import org.springframework.data.geo.GeoResults;
import org.springframework.data.redis.connection.RedisGeoCommands;
import org.springframework.data.redis.core.StringRedisTemplate;
import org.springframework.data.redis.domain.geo.GeoReference;
import org.springframework.stereotype.Service;
import org.springframework.transaction.annotation.Transactional;
import java.time.LocalDateTime;
import java.util.*;
import java.util.concurrent.ExecutorService;
import java.util.concurrent.Executors;
import java.util.concurrent.TimeUnit;
import static com.ssdp.constant.RedisConstant.*;

/**
 * @author syo 2319615164@qq.com
 * @description 商品服务
 * @date 2024/3/14
 * @Copyright syo
 */
@Service
@Slf4j
@RequiredArgsConstructor
public class ShopServiceImpl extends ServiceImpl<ShopMapper, Shop> implements IShopService {

    private final ObjectMapper objectMapper;

    private final StringRedisTemplate stringRedisTemplate;

    private final ShopMapper shopMapper;

    private final CacheClient cacheClient;

    /**
     * 线程池
     */
    private static final ExecutorService CACHE_REBUILD_EXECUTOR = Executors.newFixedThreadPool(10);

    /**
     * 使用缓存穿透查询商品信息（可能存在短期的不一致性，直到TTL结束即可）
     * @param id 商品Id
     * @return 成功返回店铺信息，失败返回失败消息
     */
    @Override
    public Result queryShopById(Long id) {
        // 缓存穿透
        // 1. 未使用工具类
        // Shop shop = queryWithPassThrough(id);

        // 1. 使用工具类
        Shop shop = cacheClient.
                queryWithPassThrough(CACHE_SHOP_KEY, id,
                        Shop.class, this::getById, CACHE_SHOP_TTL, TimeUnit.MINUTES);


        // 互斥锁解决缓存击穿
        // 1. 未使用工具类
        // Shop shop = queryWithLogicalExpire(id);
        // 2. 使用工具类
        // Shop shop = cacheClient.queryWithLogicalExpire(CACHE_SHOP_KEY, LOCK_SHOP_KEY, id,
        // Shop.class, this::getById, CACHE_SHOP_TTL, TimeUnit.MINUTES);
        if(shop != null) {
            return Result.ok(shop);
        } else {
            return Result.fail("查询失败！");
        }
    }

    /**
     * 使用逻辑过期的方式解决缓存击穿
     * @param id 商品Id
     * @return 商品信息
     */
    private Shop queryWithLogicalExpire(Long id) throws JsonProcessingException {
        // 1. 先从redis中查询查询商铺缓存(返回的是RedisData)
        String shopStr = stringRedisTemplate.opsForValue().get(CACHE_SHOP_KEY + id);

        // 2. 如果未命中表明不是我们的热点数据，不用做缓存穿透直接返回
        if(StrUtil.isBlank(shopStr)) {
            return null;
        }

        // 3. 如果命中了则需要判断释放过期，如果未过期直接返回redis中的数据
        RedisData redisData = JSONUtil.toBean(shopStr, RedisData.class);
        // RedisData redisData = BeanUtil.toBean(shopStr, RedisData.class);
        LocalDateTime expireTime = redisData.getExpireTime();
        JSONObject shopJson = (JSONObject)redisData.getData();
        Shop shop = BeanUtil.toBean(shopJson, Shop.class);

        if(expireTime.isAfter(LocalDateTime.now())) {
            // 3.1 未过期则直接返回缓存中的数据
            return shop;
        }

        // 3.2 缓存过期则缓存重建，开始获取锁
        String lockKey = LOCK_SHOP_KEY + id;
        boolean isGetLock = tryLock(lockKey);

        // 4. 获取锁失败则返回旧数据
        if(isGetLock) {
            // TODO 成功可先检查是否这时还是过期的
            // 建立线程并重构数据库
            CACHE_REBUILD_EXECUTOR.submit(() -> {
                try {
                    this.saveRedisData2Redis(id, CACHE_SHOP_TTL);
                } catch (Exception e) {
                    throw new RuntimeException(e);
                } finally {
                    unlock(lockKey);
                }
            });
        }

        // 5. 不管获取锁成功或者失败都返回
        return shop;
    }

    /**
     * 使用互斥锁解决缓存击穿的问题（简单暴力，工具类中不采用这种方案）
     * @param id 店铺热点Id
     * @return 店铺详情
     */
    @Deprecated
    private Shop queryWithMutex(Long id) {
        // 1. 先从redis中查询
        String shopStr = stringRedisTemplate.opsForValue().get(CACHE_SHOP_KEY + id);

        // 2. 如果就在redis中，则反序列化后返回
        if(StrUtil.isNotBlank(shopStr)) {
            try {
                return objectMapper.readValue(shopStr, Shop.class);
            } catch (Exception e) {
                log.error("反序列化失败！");
                return null;
            }
        }

        // 3. 如果从redis中查询的数据为空值则返回（缓存穿透）
        if(shopStr != null) {
            return null;
        }

        // 4.开始解决缓存击穿,并返回shop
        Shop shop = null;
        try {
            // 4.1 获取互斥锁 为了出现异常不出现锁不释放的情况则要用finally
            boolean b = tryLock(LOCK_SHOP_KEY + id);

            // 4.2 判断是否成功
            if(!b) {

                // 4.3 失败则休眠并重试
                Thread.sleep(50);
                return queryWithMutex(id);
            }

            // 4.4 成功则再次检测redis中的缓存是否存在
            shopStr = stringRedisTemplate.opsForValue().get(CACHE_SHOP_KEY + id);
            if(StrUtil.isNotBlank(shopStr)) {
                shop = objectMapper.readValue(shopStr, Shop.class);
                return shop;
            }

            if(shopStr != null) {
                return null;
            }

            // 4.5 如果缓存不存在则重建，如果没在redis则查询数据库
            shop = shopMapper.selectById(id);

            // 4.6 如果数据库中也没有则存入空值
            if(shop == null) {
                stringRedisTemplate.opsForValue().set(CACHE_SHOP_KEY + id, "", CACHE_NULL_TTL, TimeUnit.MINUTES);
                return null;
            }

            // 4.7 如果数据库中有则存入redis
            String newShopStr = objectMapper.writeValueAsString(shop);
            stringRedisTemplate.opsForValue().set(CACHE_SHOP_KEY + id, newShopStr, CACHE_SHOP_TTL, TimeUnit.MINUTES);
        } catch (Exception e) {
            log.error(e.getMessage());
        } finally {
            unlock(LOCK_SHOP_KEY + id);
        }

        return shop;
    }

    /**
     *  向Redis中添加数据（逻辑过期处理缓存穿透前的处理和缓存重建工作）
     * @param id 店铺Id
     * @param expireSeconds 过期时间
     */
    public void saveRedisData2Redis(Long id, Long expireSeconds) throws JsonProcessingException, InterruptedException {
        Thread.sleep(200);
        // 1. 查询数据库
        Shop shop = shopMapper.selectById(id);

        // 2. 添加到RedisData
        if(shop != null) {
            RedisData redisData = new RedisData();
            redisData.setExpireTime(LocalDateTime.now().plusSeconds(expireSeconds));
            redisData.setData(shop);
            String jsonStr = JSONUtil.toJsonStr(redisData);

            // 3. 写入redis
            stringRedisTemplate.opsForValue().set(CACHE_SHOP_KEY + id, jsonStr);
        }
    }

    /**
     * 查询店铺详情（解决了缓存穿透）
     * @param id 商品Id
     * @return 商品信息
     */
    private Shop queryWithPassThrough(Long id) {
        // 1. 先从redis中查询
        String shopStr = stringRedisTemplate.opsForValue().get(CACHE_SHOP_KEY + id);

        // 2. 如果就在redis中，则反序列化后返回
        if(StrUtil.isNotBlank(shopStr)) {
            try {
                return objectMapper.readValue(shopStr, Shop.class);
            } catch (Exception e) {
                log.error("反序列化失败！");
                return null;
            }
        }

        // 如果从redis中查询的数据为空值则返回
        if(shopStr != null) {
            return null;
        }

        // 3. 如果没在redis则查询数据库
        Shop shop = shopMapper.selectById(id);

        // 4. 如果数据库中也没有则存入空值
        if(shop == null) {
            stringRedisTemplate.opsForValue().set(CACHE_SHOP_KEY + id, "", CACHE_NULL_TTL, TimeUnit.MINUTES);
            return null;
        }

        // 5. 如果数据库中有则存入redis
        try {
            String newShopStr = objectMapper.writeValueAsString(shop);
            stringRedisTemplate.opsForValue().set(CACHE_SHOP_KEY + id, newShopStr, CACHE_SHOP_TTL, TimeUnit.MINUTES);
        } catch (Exception e) {
            log.error("序列化失败！");
            return null;
        }

        return shop;
    }

    /**
     * 更新商铺数据（先更新数据库后删除缓存）
     * @param shop 商铺
     * @return  成功与否
     */
    @Override
    @Transactional
    public Result updateShop(Shop shop) {
        if(shop.getId() != null) {
            // 1. 更新数据库
            shopMapper.updateById(shop);

            // 2. 删除缓存
            stringRedisTemplate.delete(CACHE_SHOP_KEY + shop.getId());
            return Result.ok();
        } else {
            return Result.fail("商铺id不能为空！");
        }
    }

    /**
     * 查询店铺详情
     * @param typeId 类型Id
     * @param current 当前分页
     * @param x 坐标x
     * @param y 坐标y
     * @return 结果
     */
    @Override
    public Result queryShopByType(Integer typeId, Integer current, Double x, Double y) {
        // 1. 是否需要根据坐标查询
        if(x == null || y == null) {
            // 不需要按照坐标查询
            Page<Shop> page = query().eq("type_id", typeId)
                    .page(new Page<>(current, PageConstant.DEFAULT_PAGE_SIZE));
            return Result.ok(page.getRecords());
        }

        // TODO 需要将店铺的坐标预热到Redis中

        // 2. 计算分页参数
        int from = (current - 1) * PageConstant.DEFAULT_PAGE_SIZE;
        int end = from + PageConstant.DEFAULT_PAGE_SIZE;

        // 3. 查询redis，按照距离排序、分页， shopId, distance
        String key = SHOP_GEO_KEY + typeId;
        GeoResults<RedisGeoCommands.GeoLocation<String>> results = stringRedisTemplate.opsForGeo()
                .search(
                        key,
                        GeoReference.fromCoordinate(x, y),
                        new Distance(5000)
                        , RedisGeoCommands.GeoRadiusCommandArgs.newGeoRadiusArgs().includeDistance().limit(end)
                );

        // 4. 没有结果
        if(results == null) {
            return Result.ok(Collections.emptyList());
        }

        // 5. 解析内容
        List<GeoResult<RedisGeoCommands.GeoLocation<String>>> content = results.getContent();

        // 6. 如果大小小于分页开始
        if(content.size() - 1 < from) {
            return Result.ok(Collections.emptyList());
        }

        // 7. 解析出ids和距离
        ArrayList<Long> ids = new ArrayList<>(content.size());
        HashMap<String, Distance> distanceMap = new HashMap<>(list().size());

        // 8. 截取数据
        content.stream().skip(from).forEach(result -> {
            // 获取店铺id
            String shopIdStr = result.getContent().getName();
            ids.add(Long.valueOf(shopIdStr));
            // 获取距离
            Distance distance = result.getDistance();
            distanceMap.put(shopIdStr, distance);
        });

        String idStr = StrUtil.join(",", ids);

        // 9. 根据id查询店铺
        List<Shop> shopList = query().in("id", ids).last("order by field(id," + idStr +")").list();
        for (Shop shop : shopList) {
            shop.setDistance(distanceMap.get(shop.getId().toString()).getValue());
        }

        return Result.ok(shopList);
    }

    /**
     * 获取锁（10秒，根据业务进行返回）
     * @param key 键名（锁名）
     * @return 获取是否成功（只获取一次）
     */
    private boolean tryLock(String key) {
        Boolean flag = stringRedisTemplate.opsForValue()
                .setIfAbsent(key, "1", LOCK_SHOP_TTL, TimeUnit.SECONDS);
        return BooleanUtil.isTrue(flag);
    }

    /**
     * 释放锁
     * @param key 键名（锁名）
     */
    private void unlock(String key) {
        stringRedisTemplate.delete(key);
    }
}
